(custom-make-dependencies): Bind load-file-name.
authorMarkus Rost <rost@math.uni-bielefeld.de>
Thu, 14 Nov 2002 21:37:44 +0000 (21:37 +0000)
committerMarkus Rost <rost@math.uni-bielefeld.de>
Thu, 14 Nov 2002 21:37:44 +0000 (21:37 +0000)
lisp/cus-dep.el

index 6794b196930b7c143cca02b61bce3be16ebb1b6f..b923dfcbacdda5fa1ec71f46b4f32b3a13abf795 100644 (file)
@@ -54,7 +54,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
            (insert-file-contents file)
            (goto-char (point-min))
            (string-match "\\`\\(.*\\)\\.el\\'" file)
-           (let ((name (file-name-nondirectory (match-string 1 file))))
+           (let ((name (file-name-nondirectory (match-string 1 file)))
+                 (load-file-name file))
              (if (save-excursion
                    (re-search-forward
                     (concat "(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"